home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / HyperStudio Preview 2 / Preview Sources / Install / Install.rsrc / WkSp_128 < prev   
Encoding:
Text File  |  1995-05-25  |  1.3 KB  |  84 lines
  1. MAKE "Hit "True
  2. MAKE "MouseH -182
  3. MAKE "P1 0
  4. MAKE "HitBtn "HLogo
  5. MAKE "BtnRectL -233
  6. MAKE "theline "Sheldon\ Davids,\ Editor
  7. MAKE "Target "ToSupport
  8. MAKE "TheGraphic "G1
  9. MAKE "BtnRectB 62
  10. MAKE "P2 0
  11. MAKE "BtnRect [-233 99 -135 62]
  12. MAKE "BtnRectR 99
  13. MAKE "Cmd 43
  14. MAKE "CB_ExecuteButton 43
  15. MAKE "CB_GetLastObjects 71
  16. MAKE "MouseV 85
  17. MAKE "BtnRectT -135
  18. MAKE "P3 "Sound
  19.  
  20.  
  21. TO Hide
  22. Make "P3 "Off
  23. MakeCall
  24. END
  25.  
  26. TO TrackMouse
  27. MAKE "MouseH ITEM 1 MOUSE
  28. MAKE "MouseV ITEM 2 MOUSE
  29. IF :BtnRectL > ITEM 1 MOUSE [Go "Bye]
  30. IF :BtnRectR < ITEM 2 MOUSE [Go "Bye]
  31. IF :BtnRectT < :MouseH [Go "Bye]
  32. IF :BtnRectB > :MouseV [Go "Bye]
  33.  
  34. IF BUTTONP [GO "Bye]
  35.  
  36. MAKE "Hit "False
  37. GO "DoCall
  38. LABEL "Bye
  39. MAKE "Hit "True
  40. LABEL "DoCall
  41. IF BUTTONP [DoClick]
  42. LABEL "NoRepeat
  43. END
  44.  
  45. TO AutoBtn
  46. MAKE "Cmd :CB_ExecuteButton
  47. MAKE "P1 0
  48. MAKE "P2 0
  49. MAKE "P3 :Target
  50. MakeCall
  51. END
  52.  
  53. TO MakeCall
  54. CBSETCMD :Cmd
  55. CBSETPARAMINT 1 :P1
  56. CBSETPARAMINT 2 :P2
  57. CBSETPARAMSTR 3 :P3
  58. CALLBACK
  59. END
  60.  
  61. TO DoClick
  62. SHOWITEM [] "TheGraphic 2
  63.  
  64. WHILE BUTTONP []
  65.  
  66. MAKE "MouseH ITEM 1 MOUSE
  67. MAKE "MouseV ITEM 2 MOUSE
  68. IF :BtnRectL > ITEM 1 MOUSE [Go "Bye]
  69. IF :BtnRectR < ITEM 2 MOUSE [Go "Bye]
  70. IF :BtnRectT < :MouseH [Go "Bye]
  71. IF :BtnRectB > :MouseV [Go "Bye]
  72.  
  73. HIDEITEM [] "TheGraphic 2
  74. MAKE "Hit "True
  75.  
  76. AutoBtn
  77. GO "Exit
  78.  
  79. Label "Bye
  80. Make "Hit "True
  81. HideItem [] "TheGraphic 2
  82. LABEL "Exit
  83. END
  84.